Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/decgrid/unit2.dfm/unit2.txt

Text File | 1998-09-05 | 8.1 KB | 339 lines

object DCDemoForm: TDCDemoForm
  Left = 103
  Top = 120
  Width = 626
  Height = 412
  Caption = 'Decision Cube Example Form'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 618
    Height = 49
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object DecisionPivot1: TDecisionPivot
      Left = -1
      Top = 2
      Width = 466
      Height = 47
      ButtonAutoSize = True
      DecisionSource = DecisionSource1
      GroupLayout = xtHorizontal
      Groups = [xtRows, xtColumns, xtSummaries]
      ButtonSpacing = 3
      ButtonWidth = 64
      ButtonHeight = 24
      GroupSpacing = 10
      BorderWidth = 3
      BorderStyle = bsNone
      TabOrder = 0
    end
    object Button1: TButton
      Left = 470
      Top = 24
      Width = 109
      Height = 21
      Caption = 'Preview Report'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 470
      Top = 4
      Width = 109
      Height = 19
      Caption = 'Export to Excel'
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object DecisionGrid1: TDecisionGrid
    Left = 0
    Top = 49
    Width = 618
    Height = 336
    DefaultColWidth = 90
    DefaultRowHeight = 20
    CaptionColor = clActiveCaption
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clCaptionText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    DataColor = clInfoBk
    DataSumColor = clNone
    DataFont.Charset = DEFAULT_CHARSET
    DataFont.Color = clWindowText
    DataFont.Height = -11
    DataFont.Name = 'MS Sans Serif'
    DataFont.Style = []
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelColor = clBtnFace
    LabelSumColor = clTeal
    DecisionSource = DecisionSource1
    Dimensions = <
      item
        FieldName = 'Payment'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'ShipVIA'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'Terms'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'ShipDate'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'COUNT OF AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'SUM OF AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'COUNT OF ItemsTotal'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'Average of ORDERS.AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end>
    Totals = True
    ShowCubeEditor = False
    Align = alClient
    Color = clBtnFace
    GridLineWidth = 1
    GridLineColor = clBlack
    TabOrder = 1
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'PaymentMethod'
        BaseName = 'ORDERS.PaymentMethod'
        Name = 'Payment'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 8
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'ShipVIA'
        BaseName = 'ORDERS.ShipVIA'
        Name = 'ShipVIA'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 6
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'Terms'
        BaseName = 'ORDERS.Terms'
        Name = 'Terms'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 4
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftDateTime
        Fieldname = 'ShipDate'
        BaseName = 'ORDERS.ShipDate'
        Name = 'ShipDate'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binYear
        ValueCount = 7
        Active = True
        StartValue = 35431.000000000000000000
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF AmountPaid'
        BaseName = 'ORDERS.AmountPaid'
        Name = 'COUNT OF AmountPaid'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftCurrency
        Fieldname = 'SUM OF AmountPaid'
        BaseName = 'ORDERS.AmountPaid'
        Name = 'SUM OF AmountPaid'
        DerivedFrom = -1
        DimensionType = dimSum
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF ItemsTotal'
        BaseName = 'ORDERS.ItemsTotal'
        Name = 'COUNT OF ItemsTotal'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end
      item
        ActiveFlag = diActive
        FieldType = ftUnknown
        Fieldname = 'Average of ORDERS.AmountPaid'
        BaseName = 'ORDERS.AmountPaid'
        Name = 'Average of ORDERS.AmountPaid'
        DerivedFrom = 5
        DimensionType = dimAverage
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 5
    MaxCells = 1000000
    Left = 571
    Top = 36
  end
  object DecisionQuery1: TDecisionQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (

        'SELECT ORDERS.PaymentMethod, "ORDERS.DB".ShipVIA, "ORDERS.DB".Te' +
        'rms, "ORDERS.DB".ShipDate, COUNT( "ORDERS.DB".AmountPaid ), SUM(' +
        ' "ORDERS.DB".AmountPaid ), COUNT( "ORDERS.DB".ItemsTotal )'
      'FROM "ORDERS.DB" ORDERS'

        'GROUP BY ORDERS.PaymentMethod, "ORDERS.DB".ShipVIA, "ORDERS.DB".' +
        'Terms, "ORDERS.DB".ShipDate')
    Left = 566
    Top = 30
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 603
    Top = 48
    DimensionCount = 4
    SummaryCount = 4
    CurrentSummary = 1
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      1
      0
      1
      0
      0
      2
      0
      1
      0
      0
      1
      -1
      2
      1
      0
      2
      -1
      3
      1
      6)
  end
  object Pdg: TPrintDecisionGrid
    Title = 'Decision Cube Extension'
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWhite
    TitleFont.Height = -23
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleAlignment = alcenter
    HeadingFont.Charset = DEFAULT_CHARSET
    HeadingFont.Color = clWhite
    HeadingFont.Height = -13
    HeadingFont.Name = 'Arial'
    HeadingFont.Style = [fsBold]
    HeadingAlignment = alcenter
    DataFont.Charset = DEFAULT_CHARSET
    DataFont.Color = clWhite
    DataFont.Height = -11
    DataFont.Name = 'Arial'
    DataFont.Style = []
    DataAlignment = alcenter
    LeftMargin = 0.250000000000000000
    RightMargin = 0.250000000000000000
    TopMargin = 0.250000000000000000
    BottomMargin = 0.250000000000000000
    PrintPageNums = True
    HeadingFillColor = 8404992
    TitleFillColor = 4194304
    FillTitle = True
    DataFillColor = 12615680
    FillDataCell = True
    DecisionGrid = DecisionGrid1
    FillHeadingCell = True
    Left = 558
    Top = 20
  end
  object Excel: TExpExcel
    Left = 480
    Top = 16
  end
end